Những câu hỏi liên quan
Ngọc Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 20:59

1:

#include <bits/stdc++.h>

using namespace std;

long long x;

int main()

{

cin>>x;

if (x%5==0) cout<<"Yes";

else cout<<"No";

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

long long x;

int main()

{

cin>>x;

if (x%15==0) cout<<"Yes";

else cout<<"No";

return 0;

}

Bình luận (0)
Trần nguyên sang
Xem chi tiết
Wasel TV
Xem chi tiết
Phía sau một cô gái
31 tháng 3 2023 lúc 20:22

program tinhTong;

var

     n,i,s: integer;

     a: array[1..100] of integer;

begin

     write('Nhap so luong phan tu: ');

     readln(n);

     for i := 1 to n do

     begin

          write('a[',i,'] = ');

          readln(a[i]);

     end;

     s := 0;

     for i := 1 to n do

     begin

          if (a[i] mod 5 <> 0) then

               s := s + a[i];

     end;

     writeln('Tong cac so khong chia het cho 5: ', s);

     readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:29

program TinhTong;
var
   n, i, s, x: integer;
begin
   write('Nhap so luong phan tu cua day: ');
   readln(n);

   s := 0;
   for i := 1 to n do
   begin
      write('Nhap phan tu thu ', i, ': ');
      readln(x);

      if (x mod 5 <> 0) then
         s := s + x;
   end;

   writeln('Tong cac so khong chia het cho 5 la: ', s);
end.

Bình luận (0)
FF PKL
Xem chi tiết
FF PKL
6 tháng 5 2022 lúc 23:33

giúp tớ nha 

 

Bình luận (0)
phamthiminhanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:42

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 20:46

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Bình luận (0)
Yoriichi_Tsugikuni ( ɻɛɑ...
11 tháng 6 2021 lúc 14:55

Scratch hay java

Bình luận (0)
 Khách vãng lai đã xóa
lmao lmao lmao
Xem chi tiết
ILoveMath
7 tháng 3 2022 lúc 20:57

Tham khảo:

 

uses crt;

Var a,b,i : Integer ;

Begin

Clrscr ;

Write ('Nhap a: '); readln (a);

Write ('Nhap b: '); readln (b);

i:=a + b;

If i mod 2 = 0 then writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so chan')

Else writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so le');

Readln ;

End.

Bình luận (0)
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 6:46

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b;

t=a+b;

if (t>0) cout<<"Tong la so duong";

else if (t<0) cout<<"Tong la so am";

else cout<<"Tong la so 0";

cout<<endl;

if (t%2==0) cout<<"Tong co chia het cho 2";

else cout<<"Tong khong chia het cho 2";

return 0;

}

Bình luận (0)
Nhat thanh Tran
Xem chi tiết
Phía sau một cô gái
22 tháng 4 2023 lúc 21:05

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

      n, i, tich: integer;

      a: array[1..100] of integer;

begin

      tich := 1;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 3 = 0 then

            begin

                  tich := tich * a[i];

            end;

      end;

      writeln('Tich cac phan tu chia het cho 3 la: ', tich);

      readln;

end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

      n, i, tich: integer;

      a: array[1..100] of integer;

begin

      dem := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('So phan tu chan trong day la: ', dem);

      readln;

end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

      n, i: integer;

      a: array[1..100] of integer;

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] <= 20 then

            begin

                  writeln(a[i]);

            end;

      end;

      readln;

end.

Bình luận (0)
Tạ Minh Quân
Xem chi tiết
Lê Nguyễn Hữu Vinh
7 tháng 1 2022 lúc 11:24

C++: 

#include<iostream>

using namespace std;

int main() {

int n;

cin >> n;
//a)

if (n % 5 == 0) {

return true;

} else {

return false;

}

//b)

if (n > 0) {

return true;

} else {

return false;

}

return 0;

}

Bình luận (0)
 Khách vãng lai đã xóa
Đạt Nguyễn
Xem chi tiết
Minh Lệ
25 tháng 5 2021 lúc 10:47

Program HOC24;

var a: array[1..32000] of string;

d,i,n: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

 write('a[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do

if length(a[i]) = 3 then d:=d+1;

write('Co ',d,' so co 3 chu so trong day');

readln

end.

Bình luận (0)